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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


OFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
N ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
ION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
HEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
A gL a NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
oepokar ion NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONS ef 


IBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH 


L 
S NOT SUPPLIED BY DIGITAL. 
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PASS$RT_UTIL 
RUNTIME SUPPORT MODULE FOR PASCAL == SECTION 1 
VERSION V1.0-1 == OCTOBER 1979 
This module defines the following routines: 


pas$entry: JSB routine to expand stack on procedure entry 
pas$unwind: routine to unwind stack for nonlocal goto 
pas$clock: routine to implement the Pascal function clock 
pas$card: routine to implement the Pascal function card 
pas$getargs: routine to get compiler options settings 
pas$extract, ; : . . ; . 
pas$insert: routines for compile time variable field handling 


Be Se Se Be Be Oe Oe Oe Oe Oe Oe Oe 
@aeeneneeneneeeeneeee ea ee eee eee e eee eee eeenene een eaneeenenenenenen 


Written by: Jeff Scofield 10-Dec-78 
Hellmut Golde 15-Feb-79 
Jan Sanislo 22-Feb-79 


Edit History: 
01-002: Eliminate body of pas$Sentry for VMS V2.0. Leave the entry 
point available for compatibility with older versions of 


of the compiler. 
Paul Hohensee 21FEB80 


01-003: ‘ultiply result of PASSCLOCK by i0. 
Paul Hohensee 20-Jul-81 


MPR RRRBSASZALALASASALELASLESASELEAEESERRRRRARRRRRA RR RRRRRRRRR RRR RRRRRRR RRR RRR SDD | 
.title passes util 
IDENT ‘v04-000' 
-psect _pas$code,pic,shr,exe,nowrt 
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| 
| 8008 28 : ROUTINE TO EXPAND STACK WHEN NECESSARY UPON PROCEDURE ENTRY 
0000 60 pasSentry:: 
05 0000 61 rsb ; leave entry point for compatibility 
| $0018 
| 0001 64 : ROUTINE TO IMPLEMENT THE PROCEDURE PASSUNWIND 
0001 66 ; Modified 5/22/79 = Restore correct SP in case of pathological goto 
B05} of : Jan Sanislo 
0000 pee 69 ° -entry pas$unwind, “m<> 
ee 8 Be ae) Ge ee 
€ astre 
10 AD F7 AF DE 0009 ue savas Loop, 16( fp) 
og ee 
astret: 
10 AD 00000018'EF 9E OO0F 75 movab fixsp,16(fp) 
Of bole of ans 
SE F4 AD 00 0018 78 fixsp: movl -12(fp).sp 
61 17 Baie jmp (ri) 
Bate ) ; ROUTINE TO IMPLEMENT THE PASCAL FUNCTION CLOCK 
OO1E HE ; Sjpideft 
0000 OO1E 84 -entry pas$clock,“m<> 
00 DD 3053 +H pushl #0 ; make room for returned cpu time 
Opss + : Create request List on stack at -20(fp) 
E 7C 0022 89 ° clraq -(sp) ; two zero longwords 
FC AD DF 0024 90 pushal -4(fp) ; address of spot to get cpu time 
04070004 8F ODD ht 3) pushl #<jpi$_cputimal6>!4 3 size and request words 
9020 93 : Push arguments and call sys$getipi 
7E 7C Q02D 95° clrq -(sp) : arg6,arg7--null organents 
00 = 3=6~DD Bae 96 pushl #0 : argS--null argumen 
EC AD DF 0031 97 pushal -20(fp) : arg4--address of request List 
7E 7C 0034 98 clrq -(sp) 3 arg2,arg3--null erquaents 
00 DD 0036 99 pushl #0  argi--null argumen 
00000000'GF 07 FB 0038 #£«100 calls ofS tvstgecivt ; get cpu time from system — 
50 OA FC AD C5 4 F44 101 MULLS <-4(FP),#10,R ; multiply by 10 to get milliseconds 
© Bae oe 
Bnee Hf: : ROUTINE TO IMPLEMENT THE PASCAL FUNCTION CARD 
003c 0045 106° .entry pas$card,*m<r2,r3,r4,r5> 
50 D4 0047 107 clrl r0 ; clear return count | 
51 D4 Opee 138 clrl ri ; clear starting position 
55 D4 Q04B 109 clrl r5 ; clear size comparison reg. 
52 04 AC DO Q04D 110 movi 4(ap),r2 3 get Length of set 
53 25 dO Be) 111 movl r2,r3 ; Into 3 registers 
54 DO 54 We 10$: mov re.r4 : ; ‘ 
20 «54 = «2 60057) 11 cmp r4 #32 ; check size field 
06 15 OOSA 114 bleq 208 : is ok. 
| 


PASSRT_UTIL 
v04-005 


OUMMMNAYVMOVWPIPY 
owmn——-O Fr —- £OO 
o—-90 |] N09 SMNO0FYOI 
PMH MKMWOOWPONMO 


WWIWnononornononofrofnone~n- - = 


OUNMvv—ewao 
FOowmwmwo00co 
— —) — 8 


PPA BD EEE th Me Re cry 
NA UE WN CO OOO NAW EWN O OD NAME WN $0 OONOAUE WN - OOONOuUM 


SSEp=198¢ 00:88:39 EBASCAL.SREIPASRITomAR:1 © 8° dy 


movl #35-"3 otherwise set size to 32 
subl "7 fe 


addl r4,¢ ; increment size comparison 
ffs ri,r4,a8(ap),ri 3 find next ‘l'' bit 

beqt 40 ; done if Z-bit = 1 

incl r0 ; increment count. ~er 
incl ri ; increment ay ch position 
subl3 sr1,r5,r4 3; compute new Lengt 

brb 308 ; loop until done 

cmol r3,r] ; check if done 

bgtr 108 ; 


; return to caller 
ROUTINE TO GET OPTION SETTINGS FROM COMMAND LINE 


This routine gets the option settings from the command Line, which 
were passed as arguments to the main eresres level. These argu- 
ments are not available within Pascal, which is why this routine is 
required. This routine must be called directly from the main 
preeren. £7.35 assumes that the main program's saved AP is on the 
stack a : 


entry Boyett erate See 
mov | (fp),r8 

movw a4(r85,a4(ap) 

movw a8(r8) ,a8(ap) 


r8 <== saved ap of main program 
set first return parameter 

set second return parameter 

set third return parameter 


mov 12(r8) oe oe 

movc3 #11,a16(r8), 16(ap) set fourth return parameter 
moves #11,€20(r8),a20(ap) set fifth return parameter 
moves #128 €24(r8) ,a24 (ap) set sixth return parameter 
mov | 28(r8) ,a28(ap) set seventh return parameter. 


ret return to caller 


ROUTINES FOR VARIABLE FIELD INSERTION AND EXTRACTION BY COMPILER 


.entry pas$insert,“m<> 
ty 8(ap),12¢(ap),16(ap) ,a4(ap) 
re 


entry pas$extract,“m<> 

oxtav 2(ap),16(ap) ,a4(ap) ,a8(ap) 
re 

.end 
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| PASSRT_UTIL 
| Symbol table 
FIXSP 0000001 
JPIS_CPUTIM 0000040 
LASTRET G4 
LOOP 0000000 
PASSCARD 0000004 
PASSCLOCK 0000001 
PASSENTRY 0000000 
PASSEXTRACT 0000008 
PASSGETARGS 0000007 
PASSINSERT Q00000A 
PASSUNW IND 0000000 
SYSSGETJPI teeters 
PSECT name Allocati 
a 00000000 
PASSCODE 000000C4 
S$ 00000000 
Phase Page faults 
Initialization 34 
Command processing 135 
Pass 1 128 
Symbol table sort 0 
Pass 2 45 
Symbol table output 3 
Psect synopsis output 3 
Cross-reference outout 0 
Assembler run totals 351 
The working set Limit was 1050 pages. 


7791 bytes (16 pages) of virtua 


memory were used to buffer the intermediate code 
There were 10 pages of symbol table space allocated to hold 120 non-local and 4 | 
object records in Pass 2. 


157 source Lines were read in Pass 1, pr 


8 pages of virtual memory were used to define 


Macro Library name 


-$255$DUA28: CSYSLIBISTARLET.MLB; 2 
168 GETS were required to define 4 macros. 


§ 
7 R 01 
FR 01 
3 R 01 
> RG 01 
3 RG 01 
RG 01 
8 RG 01 
D RG 01 
C RG 01 
1 RG 01 
* x 01 
$e eee ecw remo eraceea + 
! Psect synopsis ! 
$ee wre eweoce een weoscee + 
on PSECT No. Attributes 
( 0.) 00 ¢ 0.) NOPIC USR 
( 196.) 01 1.) PIC USR 
( 0.) O02 ¢ 2.) NOPIC  USR 
(ewdtema enna 
! Performance indicators ! 
cine thieniencennies nen aeneentaatererinaartiiites 
CPU Time Elapsed Time 
00:00:00.09 00:00:00.90 
00:00:00.50 00:00:02.14 
00:00:01.66 00:00:03.55 
Bb es Se 00:00:00.09 
00:00:00.5 00:00:01.10 
00:00:00.02 00:00:00.03 
00:00:00.02 00:00:00.02 
00:00:00.00 00:00:00.00 
00:00:02.92 00:00:07.84 


oducin 
7 macros. 
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Macro Library statistics 


' 
ee Se ee + 


Macros defined 


There were no errors, warnings or information messages. 


ee cee ee 


=SEP-1984 
~SEP=1984 


CON ABS 
CON REL 
CON ABS 


03:52:39 


LCL NOSH 
LCL SH 
LCL NOSH 


ocal symbols. 


R NOEXE NO 
R EXE 
R EXE 
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RD NOWRT NOVEC BYTE 
RD NOWRT NOVEC BYTE 


RD 


WRT NOVEC BYTE 


7 


“vu 


ZZWOVV VV a 


cccocoeceemmmmp 
4 ional a 222) ian a 


VAK=11"hacro Run Statistics SrSEp=198e 08:88:39 
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